home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / Hard Disk Protect 1.3.cpt / Hard Disk Protect 1.3 / card_4396.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  68 lines
  1. -- card: 4396 from stack: in.3
  2. -- bmap block id: 2275
  3. -- flags: 0000
  4. -- background id: 2666
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -- the happy bomber
  8. on openCard
  9.   hide message
  10. end openCard
  11.  
  12.  
  13. -- part 3 (button)
  14. -- low flags: 00
  15. -- high flags: 2000
  16. -- rect: left=127 top=174 right=195 bottom=186
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Resume
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   Play "Boing"
  28.   answer "Just Kidding‚ĶFunny, Huh?" with "Stupid" or "No!" or "Yes"
  29.   if it is "Stupid" then put "You Sure Are!‚ĶAnd Gullible, Too!"
  30.   if it is "No!" then put "People with no sense of humor shouldn't own Macintoshes!"
  31.   if it is "Yes" then put "Flattery will get you nowhere‚Ķexcept maybe out of this stack!"
  32.   set the rect of card button id 4 of card id 4396 to 51,174,111,195
  33.   global flg
  34.   put 0 into flg
  35.   wait 3 seconds
  36.   hide message
  37.   go to card 1
  38.   HIDE MENUBAR
  39. end mouseUp
  40.  
  41.  
  42.  
  43. -- part 4 (button)
  44. -- low flags: 00
  45. -- high flags: 8003
  46. -- rect: left=51 top=174 right=195 bottom=111
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Restart
  55. ----- HyperTalk script -----
  56. on MouseEnter
  57.   global flg
  58.   put 1 + flg into flg
  59.   global restarth,restartw
  60.   put Random(512-restartw)+restartw/2 into horiz
  61.   put Random(343-restarth)+restarth/2 into vert
  62.   play "Boing"
  63.   put the trunc of horiz into horiz
  64.   put the trunc of vert into vert
  65.   set the loc of card button id 4 to horiz,vert
  66.   if flg >= 4 then put "Try the Resume button!"
  67. end MouseEnter
  68.